package Util;

use strict;

sub get_attr_str {

    my $rhAttr = shift(@_);
    my $stResult = "";

    if ( defined( $rhAttr ) ) {

	my $stKey;
	foreach $stKey (keys %$rhAttr) {
	    $stResult .= " ".substr($stKey,1)."='" . $rhAttr->{$stKey} . "'";
	}
    }

    return $stResult;
}

1;
